Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class ErrorListing
    Implements ICloneable

    Private m_Errfil As String = "ERRORS.LST"
    Private m_Selected As Boolean = False
    Public Property Errfil() As String
        Get
            Return Me.m_Errfil
        End Get
        Set(ByVal value As String)
            Me.m_Errfil = value
        End Set
    End Property

    Public Property Selected() As String
        Get
            Return Me.m_Selected
        End Get
        Set(ByVal value As String)
            Me.m_Selected = value
        End Set
    End Property

    Public Function OutPutError() As String
        Dim strE As String = ""
        If Me.m_Selected = True Then
            strE = strE & "CO ERRORFIL  " & Me.m_Errfil & vbCrLf
        End If
        Return strE
    End Function

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New ErrorListing
        obj.m_Errfil = Me.m_Errfil
        obj.m_Selected = Me.m_Selected
        Return obj
    End Function
End Class
